home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / fmodla13.zip / MATHLIB0.DEF < prev    next >
Text File  |  1992-01-29  |  515b  |  27 lines
  1. DEFINITION MODULE MathLib0;
  2.  
  3. (* (C) Copyright 1987 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     MathLib0 module as defined in the book "Programming in Modula-2"
  7.     by Niklaus Wirth.
  8. *)
  9.  
  10. PROCEDURE sqrt( x :REAL ) :REAL;
  11.  
  12. PROCEDURE exp( x :REAL ) :REAL;
  13.  
  14. PROCEDURE ln( x :REAL ) :REAL;
  15.  
  16. PROCEDURE sin( x :REAL ) :REAL;
  17.  
  18. PROCEDURE cos( x :REAL ) :REAL;
  19.  
  20. PROCEDURE arctan( x :REAL ) :REAL;
  21.  
  22. PROCEDURE real( x :INTEGER ) :REAL;
  23.  
  24. PROCEDURE entier( x :REAL ) :INTEGER;
  25.  
  26.  
  27. END MathLib0.